﻿Public Class Estadisticas_Clientes_Compras
    Dim acceso As New acceso
    Private Sub Estadisticas_Clientes_Compras_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        calculo_estadisticas()
    End Sub

    Private Sub calculo_estadisticas()
        Dim sql As String

        sql = "Select * from Vista_Est_Clientes_Compras"
        Estadisticas_Clientes_ComprasBindingSource.DataSource = acceso.ejecutar(sql)
        ReportViewer1.RefreshReport()


    End Sub
End Class